home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / mb26577.lsp < prev    next >
Text File  |  1998-03-15  |  4KB  |  119 lines
  1. ;=============265.77 POTENTIALAUSGLEICH
  2.  
  3. (EAITDBL "0026577")
  4. (EAITmsg "mb_mld10" "\n" "002" nil) (princ "........") (princ EAITnrx) (princ "\n")
  5. (princ)
  6.  
  7. (defun C:26577d1 (/ P0 P1 P2 P10 P11 P12 P13)
  8.    (EAITDBL "0026577")
  9.    (princ (strcat "\n\n" EAITbez1))
  10.    (EAITvari)
  11.    (EAITvars)
  12.    (setvar "ORTHOMODE" 0)
  13.    (setvar "OSMODE" 512)
  14.    (EAITmsg "mb_mld12" "\n  " "015" ": ")  ;1. Nutlinie:
  15.    (setq P0 (getpoint))
  16.    (setvar "OSMODE" 128)
  17.    (EAITmsg "mb_mld12" "\n  " "016" ": ")  ;2. Nutlinie:
  18.    (setq P1 (getpoint P0))
  19.    (setvar "ORTHOMODE" 0)
  20.    (setvar "OSMODE" 0)
  21.    (setvar "APERTURE" 4)
  22.    (setq P10 (osnap P0 EAITofend)
  23.          P11 (osnap P1 EAITofend)
  24.          P12 (osnap P0 EAITofmit)
  25.          P13 (osnap P1 EAITofmit)
  26.          P1 (mapcar '/ (mapcar '+ P10 P11) '(2 2 2))
  27.          P2 (mapcar '/ (mapcar '+ P12 P13) '(2 2 2)) )
  28.    (command EAITege (strcat EAITpfn "26577d1") P1 "" "" P2 )
  29.  
  30.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ (EAITbw)(EAITgib 31)) 6) "" "" ""
  31.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  32.    )
  33.  
  34.    (EAITvarz2)
  35.    (princ)
  36. )
  37.  
  38.  
  39.  
  40.  
  41. (defun C:26577s1 (/ P0 P1 P2 P10 P11 P12 P13 W Wx WR WRx)
  42.    (EAITDBL "0026577")
  43.    (princ (strcat "\n\n" EAITbez1))
  44.    (EAITvari)
  45.    (EAITvars)
  46.    (setvar "ORTHOMODE" 0)
  47.    (setvar "OSMODE" 512)
  48.    (EAITmsg "mb_mld12" "\n  " "015" ": ")  ;1. Nutlinie:
  49.    (setq P0 (getpoint))
  50.    (setvar "OSMODE" 128)
  51.    (EAITmsg "mb_mld12" "\n  " "016" ": ")  ;2. Nutlinie:
  52.    (setq P1 (getpoint P0))
  53.    (setvar "ORTHOMODE" 0)
  54.    (setvar "OSMODE" 0)
  55.    (setvar "APERTURE" 4)
  56.    (setq P10 (osnap P0 EAITofend)
  57.          P11 (osnap P1 EAITofend)
  58.          P12 (osnap P0 EAITofmit)
  59.          P13 (osnap P1 EAITofmit)
  60.          P1  (mapcar '/ (mapcar '+ P10 P11) '(2 2 2))
  61.          P2  (mapcar '/ (mapcar '+ P12 P13) '(2 2 2))
  62.          W   (angle P10 P11)
  63.          Wx  (angle P10 P12)
  64.          WR  (angle P1 P13)
  65.          WRx (EAITbig WR) )
  66.    (cond ((or (and (>= WRx 90)(< WRx 180))(and (>= WRx 270)(< WRx 360)))(setq Wx (- Wx (EAITgib 45))))
  67.          (T (setq Wx (+ Wx (EAITgib 45)))) )
  68.    (command EAITege(strcat EAITpfn "26577s1") (polar P1 W 7.5) "" "" (EAITbig Wx) )
  69.  
  70.    (command EAITege (strcat EAITpfn "EAITinfo") (polar (EAITbp) (+ Wx (EAITgib 10)) 9) "" "" ""
  71.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  72.    )
  73.  
  74.    (EAITvarz2)
  75.    (princ)
  76. )
  77.  
  78.  
  79.  
  80. (defun C:26577s2 (/ P0 P1 P2 P10 P11 P12 P13 W Wx WR WRx)
  81.    (EAITDBL "0026577")
  82.    (princ (strcat "\n\n" EAITbez1))
  83.    (EAITvari)
  84.    (EAITvars)
  85.    (setvar "ORTHOMODE" 0)
  86.    (setvar "OSMODE" 512)
  87.    (EAITmsg "mb_mld12" "\n  " "015" ": ")  ;1. Nutlinie:
  88.    (setq P0 (getpoint))
  89.    (setvar "OSMODE" 128)
  90.    (EAITmsg "mb_mld12" "\n  " "016" ": ")  ;2. Nutlinie:
  91.    (setq P1 (getpoint P0))
  92.    (setvar "ORTHOMODE" 0)
  93.    (setvar "OSMODE" 0)
  94.    (setvar "APERTURE" 4)
  95.    (setq P10 (osnap P0 EAITofend)
  96.          P11 (osnap P1 EAITofend)
  97.          P12 (osnap P0 EAITofmit)
  98.          P13 (osnap P1 EAITofmit)
  99.          P1  (mapcar '/ (mapcar '+ P10 P11) '(2 2 2))
  100.          P2  (mapcar '/ (mapcar '+ P12 P13) '(2 2 2))
  101.          W   (angle P10 P11)
  102.          Wx  (angle P10 P12)
  103.          WR  (angle P1 P13)
  104.          WRx (EAITbig WR) )
  105.    (cond ((or (and (>= WRx 0)(< WRx 90))(and (>= WRx 180)(< WRx 270)))(setq Wx (- Wx (EAITgib 45))))
  106.          (T (setq Wx (+ Wx (EAITgib 45)))) )
  107.    (command EAITege(strcat EAITpfn "26577s1") (polar P1 W 7.5) "" "" (EAITbig Wx) )
  108.  
  109.    (command EAITege (strcat EAITpfn "EAITinfo") (polar (EAITbp) (+ Wx (EAITgib 10)) 9) "" "" ""
  110.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  111.    )
  112.  
  113.    (EAITvarz2)
  114.    (princ)
  115. )
  116.  
  117.  
  118. (princ)
  119.